home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / tcp / socklink100.lha / socklink / socklink_install < prev    next >
Text File  |  1995-09-01  |  5KB  |  153 lines
  1. ;*****************************************************************
  2. ;      ______               __     __     __          __
  3. ;     / ____/              / /__  / /    /_/         / /__
  4. ;    / /___ ______ ______ / // / / /    __   ______ / // /
  5. ;   /___  // __  // ____// _  / / /    / /  / __  // _  /
  6. ;  ____/ // /_/ // /___ / /| | / /___ / /_ / / / // /| |
  7. ; /_____//_____//_____//_/ |_|/_____//___//_/ /_//_/ |_|
  8. ;
  9. ; socklink Install V1.00 by Robert Reiswig (rcr@netcom.com) ©1995
  10. ; If you wish to use parts of this you MUST ask!! Sep-01-95
  11. ;
  12. ; Installer suggestions or problems: installer@socklink.vgr.com
  13. ;                               IRC: RobR
  14. ;
  15. ;*****************************************************************
  16.  
  17. (set socklinkver "1.00")
  18.  
  19.  
  20. ;******************************************************************************** 
  21. ;
  22. ; Hello and What TCP/IP package
  23. ;
  24. ;********************************************************************************
  25. (message (cat "\nsocklink " socklinkver "\n\nLinks Stdio to Socket\nfor AmiTCP and AS225r2\n\nby:\nSam Yee - samy@sfu.ca \n(Alternative Email - samy@res.com)\n\n"
  26.               "\nInstaller by:\nRobert Reiswig (rcr@netcom.com)"
  27.          )
  28. ) 
  29.  
  30.  
  31. (set TCP  (askchoice (choices "AmiTCP (3.0b2, 4.0, 4.1, 4.2)" "MultiLink (Mlink)" "AS225r2 (Commodore)")
  32.                      (prompt "Please select the TCP/IP package/emulator you run.")
  33.                  (help   "Please select the TCP/IP package/emulator you run.")
  34.                      (default 0)
  35.       )
  36. )
  37.  
  38.  
  39. (if (= TCP 0) (set Package "AmiTCP:") )
  40. (if (= TCP 1) (set Package "AmiTCP:") )
  41. (if (= TCP 2) (set Package "Inet:") )
  42.  
  43. ;******************************************************************************** 
  44. ;
  45. ;Amitcp Files
  46. ;
  47. ;********************************************************************************
  48. (if (= TCP 0)
  49.    (    
  50.  
  51.     (set @default-dest "AmiTCP:")
  52.  
  53.     (if (< (exists (tackon Package "bin")) 2) (makedir (tackon Package "bin") (infos)) )
  54.     (copyfiles (source "socklink_amitcp")  (dest "AmiTCP:bin") (newname "socklink"))
  55.  
  56.     (copylib (source "rawin.library")  (dest "libs:") )
  57.    
  58.     (if (< (exists (tackon Package "doc")) 2) (makedir (tackon Package "doc") (infos)) )
  59.     (copyfiles (source "socklink.guide")  (dest "AmiTCP:doc") (infos) )
  60.     (copyfiles (source "socklink.doc")  (dest "AmiTCP:doc") (infos) )
  61.            
  62.    )    
  63. )
  64.  
  65.  
  66. ;******************************************************************************** 
  67. ;
  68. ;Mlink
  69. ;
  70. ;********************************************************************************
  71. (if (= TCP 1)
  72.    (    
  73.  
  74.     (set @default-dest "AmiTCP:")
  75.  
  76.     (if (< (exists "AmiTCP:") 2)
  77.      (
  78.        (makedir (dest "SYS:amitcp") (infos)) 
  79.        (run "assign amitcp: sys:amitcp") 
  80.      )
  81.     )
  82.    
  83.     (if (< (exists (tackon Package "bin")) 2) (makedir (tackon Package "bin") (infos)) )
  84.     (copyfiles (source "socklink_amitcp")  (dest "AmiTCP:bin") (newname "socklink"))
  85.  
  86.     (copylib (source "rawin.library")  (dest "libs:") )
  87.    
  88.     (if (< (exists (tackon Package "doc")) 2) (makedir (tackon Package "doc") (infos)) )
  89.     (copyfiles (source "socklink.guide")  (dest "AmiTCP:doc") (infos) )
  90.     (copyfiles (source "socklink.doc")  (dest "AmiTCP:doc") (infos) )
  91.            
  92.    )    
  93. )
  94.  
  95.  
  96.  
  97. ;******************************************************************************** 
  98. ;
  99. ;AS225 files
  100. ;
  101. ;********************************************************************************
  102. (if (= TCP 2)
  103.    (    
  104.  
  105.     (set @default-dest "Inet:")
  106.  
  107.     (if (< (exists (tackon Package "c")) 2) (makedir (tackon Package "c") (infos)) )
  108.     (copyfiles (source "socklink_as225")  (dest "Inet:c") (newname "socklink"))
  109.  
  110.     (copylib (source "rawin.library")  (dest "libs:") )
  111.   
  112.     (if (< (exists (tackon Package "docs")) 2) (makedir (tackon Package "docs") (infos)) )
  113.     (copyfiles (source "socklink.guide")  (dest "Inet:docs") (infos) )
  114.     (copyfiles (source "socklink.doc")  (dest "Inet:docs") (infos) )
  115.              
  116.    )    
  117. )
  118.  
  119.  
  120.  
  121.  
  122. ;******************************************************************************** 
  123. ;
  124. ; End  
  125. ;
  126. ;********************************************************************************
  127.  
  128. (message (cat "\n Files installed:\n\n\n"
  129.               (if (= TCP 0) (tackon Package "bin/socklink\n\n") )
  130.               (if (= TCP 1) (tackon Package "bin/socklink\n\n") )
  131.               (if (= TCP 2) (tackon Package "c/socklink\n\n") )
  132.  
  133.               "libs:rawin.library\n\n"
  134.               (tackon Package "doc/socklink.doc\n\n")
  135.               (tackon Package "doc/socklink.guide\n\n")
  136.          )
  137. )
  138.  
  139.  
  140.  
  141. (message "Questions,  ideas,  comments,  bug  reports, etc. should go to:\n\n"
  142.          "Snail Mail: Sam Yee\n"
  143.          "4595 Nanaimo St.\n"
  144.          "Vancouver, B.C.\n"
  145.          "Canada  V5N 5J5\n\n"
  146.          "FidoNet: 1:153/765\n"
  147.          "(Terra Firma BBS (604) 434-3665)\n\n"                
  148.          "Email: samy@sfu.ca\n"
  149.          "Alternative Email : samy@res.com\n"
  150.          "IRC: Encoder in #amiga" 
  151. )
  152.  
  153.